home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / falcon / programm.ing / nt_dsp1.lzh / NT_DSP1.MSA / FLOAT / FPFLOAT.ASM < prev    next >
Assembly Source File  |  1989-01-24  |  2KB  |  70 lines
  1. ;
  2. ; This program originally available on the Motorola DSP bulletin board.
  3. ; It is provided under a DISCLAIMER OF WARRANTY available from
  4. ; Motorola DSP Operation, 6501 Wm. Cannon Drive W., Austin, Tx., 78735.
  5. ; 
  6. ; Last Update 6 Oct 87   Version 2.0
  7. ;
  8. fpfloat ident   2,0
  9. ;
  10. ; MOTOROLA DSP56000/1 FPLIB - VERSION 2
  11. ;
  12. ; FPFLOAT - FIXED POINT TO FLOATING POINT CONVERSION SUBROUTINE
  13. ;
  14. ; Entry points: float_a R = float(A)
  15. ;               float_x R = float(X)
  16. ;
  17. ;       data = 56 bit two's complement fixed point number
  18. ;              consisting of a 48 bit fraction with an 8 bit
  19. ;              integer extension in standard accumulator data
  20. ;              representation.
  21. ;
  22. ;       m = 24 bit mantissa (two's complement, normalized fraction)
  23. ;
  24. ;       e = 14 bit exponent (unsigned integer, biased by +8191)
  25. ;
  26. ; Input variables:
  27. ;
  28. ;   X   x1 = data
  29. ;
  30. ;   A    a = data
  31. ;
  32. ; Output variables:
  33. ;
  34. ;   R   a2 = sign extension of mr
  35. ;       a1 = mr  (normalized)
  36. ;       a0 = zero
  37. ;
  38. ;       b2 = sign extension of er (always zero)
  39. ;       b1 = er
  40. ;       b0 = zero
  41. ;
  42. ; Error conditions:     none
  43. ;
  44. ; Assumes n0, m0, shift constant table and scaling modes
  45. ; initialized by previous call to the subroutine "fpinit".
  46. ;
  47. ; Alters Data ALU Registers
  48. ;       a2      a1      a0      a
  49. ;       b2      b1      b0      b
  50. ;       y1
  51. ;
  52. ; Alters Address Registers
  53. ;       r0
  54. ;
  55. ; Alters Program Control Registers
  56. ;       pc      sr
  57. ;
  58. ; Uses 0 locations on System Stack
  59. ;
  60. ;
  61. float_x tfr     x1,a                    ;get data
  62. float_a tst     a       fp_space:fp_ebias,r0    ;check data, initialize er
  63.         jnr     float1                  ;jump if data normalized
  64. norm8   rep     #8                      ;normalize up to 8 bits left or right
  65.         norm    r0,a                    ;normalize one bit, update er
  66.         jnn     norm8                   ;jump if not normalized
  67. float1  rnd     a                       ;round mr to 24 bits
  68.         norm    r0,a                    ;correct overflow due to rounding
  69.         jmp     check1                  ;go check exponent range
  70.